********************************************************************************
*
**# Table A4.  Does DV Court Reduce Future Criminal Contact for Defendants? Conditional 
*
********************************************************************************


use "${DATA}/data_DV.dta", clear

********************************************************************************
*
**##	Panel A
*
********************************************************************************

# d ; 

eststo clear ;
local m = 1  ;

foreach y of varlist recid_3_dv recid_3_aslt recid_3 recid_3_dvfel { ;

	eststo app_`m':			 
	reghdfe `y' dv_judge $cntrls if dv_case == 1 & guilty_case == 1, $hdfe_opts ;

		estadd ysumm	;
		local m `++m'	;
} ;


esttab 	app_* using "${OUTPUT}/tabA4.rtf", replace ${tab_optns} 
		scalars("cntrl Controls""ymean Y Mean") 
		keep(dv_judge)
		title(Table A.4. Does DV Court Reduce Future Criminal Contact for Defendants? Conditional  -- Panel A) ;
# d cr

********************************************************************************
*
**##	Panel A
*
********************************************************************************

# d ; 

eststo clear ;
local m = 1  ;


foreach y of varlist recid_3_dv recid_3_aslt recid_3 recid_3_dvfel { ;
		
	eststo app_`m':
	reghdfe `y' dv_did dv_case dv_judge $cntrls if guilty_case == 1 , $hdfe_opts ;

		estadd ysumm	;
		local m `++m'	;
} ;


esttab 	app_* using "${OUTPUT}/tabA4.rtf", append ${tab_optns} 
		scalars("cntrl Controls""ymean Y Mean") 
		keep(dv_did dv_case dv_judge)
		title(Table A.4. Panel B) ;
		
# d cr 

********************************************************************************
*   End of File
********************************************************************************
